home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Misc / SciCalc1.1 / Source / PanelManager.m < prev    next >
Text File  |  1994-04-24  |  2KB  |  68 lines
  1. /***(PanelManager.m)***********************************************************
  2. *H* SciCalc Panel Manager object class implmentation          V0.0, 19-JUN-91 *
  3. *C* V0.0 19-JUN-91 Initial version                                      --MDM *
  4. ******************************************************************************/
  5.  
  6. #import "PanelManager.h"
  7. #import "HelpWindow.h"
  8. #import "InfoWindow.h"
  9.  
  10. @implementation PanelManager
  11.  
  12.  
  13. /******************************************************************************
  14. * INSTANCE METHOD:- init                                                      *
  15. *   Intialize the intance variables                                           *
  16. ******************************************************************************/
  17. - init
  18.  
  19. {/* BEGIN:-init */
  20. self = [super init];
  21.  
  22. IVhelpPanel = nil;
  23. IVinfoPanel = nil;
  24. return self;
  25. }/* END init */
  26.  
  27.  
  28.  
  29. /******************************************************************************
  30. * INSTANCE METHOD:- ShowHelpPanel                                                *
  31. *   This method is called  when the Help  item is selected from the Info sub- *
  32. * menu.  On the first  entry  this  routine  creates  the help panel and then *
  33. * subsequently it just brings the panel to the foreground.                  *
  34. ******************************************************************************/
  35. - ShowHelpPanel:sender
  36.  
  37. {/* BEGIN ShowHelpPanel */
  38. if ( IVhelpPanel == nil )
  39.     /* This is the first entry to this method, unarchive the help panel */
  40.     IVhelpPanel = [[HelpWindow alloc] init];
  41.  
  42. /* Move the help panel to the top of the window stack and give it focus */
  43. [IVhelpPanel ExposeAndFocus:self];
  44. return self;
  45. }/* END ShowHelpPanel */
  46.  
  47.  
  48.  
  49. /******************************************************************************
  50. * METHOD:- ShowInfoPanel                                                      *
  51. *   This method is called when  the  Info item is selected from the Info sub- *
  52. * menu.  On the first  entry  this  routine  creates  the help panel and then *
  53. * subsequently just brings the panel to the foreground.                            *
  54. ******************************************************************************/
  55. - ShowInfoPanel:sender
  56.  
  57. {/* BEGIN ShowInfoPanel */
  58. if ( IVinfoPanel == nil )
  59.     /* This is the first entry to this method, unarchive the info panel */
  60.     IVinfoPanel = [[InfoWindow alloc] init];
  61.  
  62. /* Move the help panel to the top of the window stack and give it focus */
  63. [IVinfoPanel ExposeAndFocus:self];
  64. return self;
  65. }/* END ShowInfoPanel */
  66.  
  67. @end
  68.